1 '------------------------------------------------------------------------------
2 ' <auto-generated>
3 ' This code was generated by a tool.
4 ' Runtime Version:4.0.30319.42000
5 '
6 ' Changes to this file may cause incorrect behavior and will be lost if
7 ' the code is regenerated.
8 ' </auto-generated>
9 '------------------------------------------------------------------------------
10
11 Option Strict Off
12 Option Explicit On
13
14 Imports CrystalDecisions.CrystalReports.Engine
15 Imports CrystalDecisions.ReportSource
16 Imports CrystalDecisions.Shared
17 Imports System
18 Imports System.ComponentModel
19
20
21 Public Class rptService
22 Inherits ReportClass
23
24 Public Sub New()
25 MyBase.New
26 End Sub
27
28 Public Overrides Property ResourceName() As String
29 Get
30 Return "rptService.rpt"
31 End Get
32 Set
33 'Do nothing
34 End Set
35 End Property
36
37 Public Overrides Property NewGenerator() As Boolean
38 Get
39 Return true
40 End Get
41 Set
42 'Do nothing
43 End Set
44 End Property
45
46 Public Overrides Property FullResourceName() As String
47 Get
48 Return "Sales_and_Inventory_System.rptService.rpt"
49 End Get
50 Set
51 'Do nothing
52 End Set
53 End Property
54
55 <Browsable(false), _
56 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
57 Public ReadOnly Property Section1() As CrystalDecisions.CrystalReports.Engine.Section
58 Get
59 Return Me.ReportDefinition.Sections(0)
60 End Get
61 End Property
62
63 <Browsable(false), _
64 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
65 Public ReadOnly Property Section2() As CrystalDecisions.CrystalReports.Engine.Section
66 Get
67 Return Me.ReportDefinition.Sections(1)
68 End Get
69 End Property
70
71 <Browsable(false), _
72 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
73 Public ReadOnly Property GroupHeaderSection1() As CrystalDecisions.CrystalReports.Engine.Section
74 Get
75 Return Me.ReportDefinition.Sections(2)
76 End Get
77 End Property
78
79 <Browsable(false), _
80 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
81 Public ReadOnly Property Section3() As CrystalDecisions.CrystalReports.Engine.Section
82 Get
83 Return Me.ReportDefinition.Sections(3)
84 End Get
85 End Property
86
87 <Browsable(false), _
88 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
89 Public ReadOnly Property GroupFooterSection1() As CrystalDecisions.CrystalReports.Engine.Section
90 Get
91 Return Me.ReportDefinition.Sections(4)
92 End Get
93 End Property
94
95 <Browsable(false), _
96 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
97 Public ReadOnly Property Section4() As CrystalDecisions.CrystalReports.Engine.Section
98 Get
99 Return Me.ReportDefinition.Sections(5)
100 End Get
101 End Property
102
103 <Browsable(false), _
104 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
105 Public ReadOnly Property Section5() As CrystalDecisions.CrystalReports.Engine.Section
106 Get
107 Return Me.ReportDefinition.Sections(6)
108 End Get
109 End Property
110
111 <Browsable(false), _
112 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
113 Public ReadOnly Property Parameter_p2() As CrystalDecisions.[Shared].IParameterField
114 Get
115 Return Me.DataDefinition.ParameterFields(0)
116 End Get
117 End Property
118
119 <Browsable(false), _
120 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
121 Public ReadOnly Property Parameter_p1() As CrystalDecisions.[Shared].IParameterField
122 Get
123 Return Me.DataDefinition.ParameterFields(1)
124 End Get
125 End Property
126
127 <Browsable(false), _
128 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
129 Public ReadOnly Property Parameter_p3() As CrystalDecisions.[Shared].IParameterField
130 Get
131 Return Me.DataDefinition.ParameterFields(2)
132 End Get
133 End Property
134 End Class
135
136 <System.Drawing.ToolboxBitmapAttribute(GetType(CrystalDecisions.[Shared].ExportOptions), "report.bmp")> _
137 Public Class CachedrptService
138 Inherits Component
139 Implements ICachedReport
140
141 Public Sub New()
142 MyBase.New
143 End Sub
144
145 <Browsable(false), _
146 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
147 Public Overridable Property IsCacheable() As Boolean Implements CrystalDecisions.ReportSource.ICachedReport.IsCacheable
148 Get
149 Return true
150 End Get
151 Set
152 '
153 End Set
154 End Property
155
156 <Browsable(false), _
157 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
158 Public Overridable Property ShareDBLogonInfo() As Boolean Implements CrystalDecisions.ReportSource.ICachedReport.ShareDBLogonInfo
159 Get
160 Return false
161 End Get
162 Set
163 '
164 End Set
165 End Property
166
167 <Browsable(false), _
168 DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
169 Public Overridable Property CacheTimeOut() As System.TimeSpan Implements CrystalDecisions.ReportSource.ICachedReport.CacheTimeOut
170 Get
171 Return CachedReportConstants.DEFAULT_TIMEOUT
172 End Get
173 Set
174 '
175 End Set
176 End Property
177
178 Public Overridable Function CreateReport() As CrystalDecisions.CrystalReports.Engine.ReportDocument Implements CrystalDecisions.ReportSource.ICachedReport.CreateReport
179 Dim rpt As rptService = New rptService()
180 rpt.Site = Me.Site
181 Return rpt
182 End Function
183
184 Public Overridable Function GetCustomizedCacheKey(ByVal request As RequestContext) As String Implements CrystalDecisions.ReportSource.ICachedReport.GetCustomizedCacheKey
185 Dim key As [String] = Nothing
186 '// The following is the code used to generate the default
187 '// cache key for caching report jobs in the ASP.NET Cache.
188 '// Feel free to modify this code to suit your needs.
189 '// Returning key == null causes the default cache key to
190 '// be generated.
191 '
192 'key = RequestContext.BuildCompleteCacheKey(
193 ' request,
194 ' null, // sReportFilename
195 ' this.GetType(),
196 ' this.ShareDBLogonInfo );
197 Return key
198 End Function
199 End Class
